home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / wb / czesc_3 / retinatitlepic / s / startup-sequence.fragment < prev    next >
Text File  |  1994-02-04  |  2KB  |  70 lines
  1.  
  2. ;(...)
  3.  
  4. ;
  5. RunBack >NIL: SYS:RetinaSystem/RetinaEmu CX_POPUP=NO
  6.  
  7. ;Important: the total execution time of the following commands MUST be at
  8. ;least 10 seconds (before the first program tries to access the Retina board)
  9. ;- if not handled this way, frequent system lockups were encountered.
  10. ;(Perhaps the board takes that long to initialise properly?!)
  11. ;This is why ALL previous and ALL the following commands should redirect
  12. ;their output (>NIL:)
  13. ;The first program to actually access the board could then be a password
  14. ;program (see below) or something alike.
  15. ;The effect is: when booting, the first thing a user will see is the login
  16. ;screen - even if (s)he manages to interrupt the startup-sequence, there will
  17. ;be no shell open, not even a single blank screen :)
  18. ;
  19.  
  20. ;(...)
  21.  
  22. ;
  23. ;First access to Retina graphics board since starting RetinaEmu WB emulation
  24. ;about ten seconds ago (any previous output redirected to NIL:)
  25. ;ALock (available on AmiNet) opens a Login Screen and asks for a password.
  26. ;After successful login a 'motto of the day' is shown, which is deleted
  27. ;afterwards, so it won't be displayed next time you reboot.
  28. ;The 'motto of the day' file is restored at system shutdown.
  29.  
  30. C:ALock >NIL:
  31. If EXISTS S:motd
  32.   Delete >NIL: S:motd
  33. EndIf
  34. ;
  35.  
  36. ;(...)
  37.  
  38. If EXISTS SYS:S/LogFile
  39.   If NOT EXISTS ENVARC:Custom/ColdBoot
  40.     Date >>SYS:S/LogFile
  41.     Date >ENVARC:Custom/ColdBoot
  42.   EndIf
  43. Else
  44.   Date >SYS:S/LogFile
  45.   Date >ENVARC:Custom/ColdBoot
  46. EndIf
  47.  
  48. ;(...)
  49.  
  50. IF EXISTS S:User-Startup
  51.   Execute S:User-Startup
  52. EndIF
  53.  
  54. ;
  55. If NOT EXISTS ENVARC:Custom/CoolBoot
  56.   RTools:RetinaDisplay Pics:System/Title.iff SCREENOUTPUT NOWINDOW KEEPSCREEN
  57.   ;picture will only be displayed at 'ColdBoot'
  58. EndIf
  59. ;
  60.  
  61. Resident Execute REMOVE
  62. Resident Assign REMOVE
  63.  
  64. ;
  65. ;;C:LoadWB ;workbench loaded in user-startup
  66.  
  67. RunBack >NIL: C:Execute S:Batch/TerminateIntro.
  68. EndCLI >NIL:
  69. ;
  70.